CORREZ.TTY
READ GIOCAT.DEC
MOVE BGRASP TO CUBFIN
CUBFIN←$INPUT POINTER
CUBFIN
UNFIX CUBFIN
UNFIX CUBASE
CUBFIN←$INPUT POINTER
ORIGIN←$INPUT POINTER
CUBASE←$INPUT POINTER
UNFIX CUBOT
CUBOT←$INPUT POINTER
AFFIX CUBASE TO ORIGIN
AFFIX CUBFIN TO ORIGIN
AFFIX CUBOT TO CUBASE NONRIGIDLY
ORIGY←$INPUT POINTER
ORIGYI
ORIGXI←$INPUT POINTER
DELETE ORIGX,ORIGY;
BPARK
BPARK
MOVE BGRASP TO CPRESAZ
MOVE BGRASP TO CPRESA
MOVE BGRASP TO CPRESAZ
CENTER BARM
AFFIX CUBOT TO BGRASP
MOVE CUBOT TO CPRESAZ
MOVE CUBOT TO CPRESA
MOVE CUBOT TO CPOSA

;
;
MOVE CUBOT TO CUBFIN
WRITE WORLD NEW
WRITE WORLD.NEW
CLOSE GIOCAT.DEC
WORLD.NEWC
WORLD.NEW
CLOSE WORLD.NEW 
EXIT